FlexCell窗体之间传值谢谢!
FlexCell窗体之间传值谢谢!FlexCell窗体之间传值谢谢!FlexCell窗体之间传值谢谢!FlexCell窗体之间传值谢谢! --------------------编程问答-------------------- 沒有用过FlexCell,听说要钱的。 --------------------编程问答-------------------- 改用XPTable 开源的哦。--------------------编程问答-------------------- FlexCell 好用些 --------------------编程问答-------------------- 1、Form1中定義一個變量 Friend TempString as String
2、Form1中,代碼如下
With FlexGrid1
if .RowSel<0 or .ColSel <0 then
Exit Sub
End With
if not isdbnull(.item(.RowSel,.ColSel)) then
TempString=.item(.RowSel,.ColSel)
end if
3、在Form2中
直接使用Form1.TempString就可以了。
--------------------编程问答-------------------- 給你個實例看看,希望對你有幫助。
Imports System--------------------编程问答-------------------- --------------------编程问答-------------------- 真是用票子換來的。
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'create hierarchical DataSet
Dim drc As DataRowCollection
Dim dcc As DataColumnCollection
Dim ds As DataSet = New DataSet("Hierarchical Dataset")
ds.Tables.Add("Products")
dcc = ds.Tables("Products").Columns
dcc.Add("ID", GetType(String))
dcc.Add("Name", GetType(String))
dcc.Add("Value", GetType(Decimal))
drc = ds.Tables("Products").Rows
drc.Add(New Object() {"P1", "Widget", 19.95})
drc.Add(New Object() {"P2", "Gadget", 22.75})
drc.Add(New Object() {"P3", "Sprocket", 33.1})
ds.Tables.Add("Customers")
dcc = ds.Tables("Customers").Columns
dcc.Add("ID", GetType(String))
dcc.Add("Name", GetType(String))
dcc.Add("Address", GetType(String))
drc = ds.Tables("Customers").Rows
drc.Add(New Object() {"C1", "John", "122 Penny Lane"})
drc.Add(New Object() {"C2", "Paul", "646 Abbey Road"})
drc.Add(New Object() {"C3", "George", "222 Chatham Road"})
drc.Add(New Object() {"C4", "Ringo", "345 Oxford St"})
ds.Tables.Add("Orders")
dcc = ds.Tables("Orders").Columns
dcc.Add("ID", GetType(String))
dcc.Add("CustomerID", GetType(String))
dcc.Add("Prty", GetType(Integer))
dcc.Add("Date", GetType(DateTime))
drc = ds.Tables("Orders").Rows
drc.Add(New Object() {"O1", "C1", 1, "2011/1/01"})
drc.Add(New Object() {"O2", "C2", 2, "2011/03/02"})
drc.Add(New Object() {"O3", "C3", 3, "2011/02/02"})
drc.Add(New Object() {"O4", "C4", 1, "2011/01/02"})
drc.Add(New Object() {"O5", "C1", 3, "2011/2/06"})
ds.Tables.Add("OrderDetail")
dcc = ds.Tables("OrderDetail").Columns
dcc.Add("ID", GetType(String))
dcc.Add("OrderID", GetType(String))
dcc.Add("ProductID", GetType(String))
dcc.Add("Qty", GetType(Integer))
drc = ds.Tables("OrderDetail").Rows
drc.Add(New Object() {"D1", "O1", "P1", 1})
drc.Add(New Object() {"D2", "O1", "P2", 12})
drc.Add(New Object() {"D3", "O1", "P3", 1})
drc.Add(New Object() {"D4", "O2", "P1", 1})
drc.Add(New Object() {"D5", "O2", "P2", 8})
drc.Add(New Object() {"D6", "O2", "P3", 1})
drc.Add(New Object() {"D7", "O3", "P1", 1})
drc.Add(New Object() {"D8", "O4", "P1", 1})
drc.Add(New Object() {"D9", "O4", "P2", 10})
drc.Add(New Object() {"D10", "O5", "P1", 1})
drc.Add(New Object() {"D11", "O5", "P2", 16})
drc.Add(New Object() {"D12", "O5", "P3", 1})
ds.Relations.Add("CustomerOrders", ds.Tables("Customers").Columns("ID"), ds.Tables("Orders").Columns("CustomerID"))
ds.Relations.Add("Order Details", ds.Tables("Orders").Columns("ID"), ds.Tables("OrderDetail").Columns("OrderID"))
ds.Relations.Add("Product Details", ds.Tables("Products").Columns("ID"), ds.Tables("OrderDetail").Columns("ProductID"))
' bind data set to flex1/flex2 controls
flex1.DataMember = "Customers"
flex1.DataSource = ds
flex2.DataMember = "Customers.CustomerOrders"
flex2.DataSource = ds
End Sub
End Class
补充:.NET技术 , VB.NET