Dim name As String = ""
Static dropDownHost As Windows.Forms.ToolStripControlHost
Static dropDown As Windows.Forms.ToolStripDropDown
If dropDownHost Is Nothing Then
dropDownHost = New Windows.Forms.ToolStripControlHost(Forms(e.Form.Name).Controls("Panel_列表_外").BaseControl)
dropDown = New Windows.Forms.ToolStripDropDown
dropDown.Items.Add(dropDownHost)
End If
'定位-----------------------------------------------------------------
Dim point As Point = basemainform.PointToScreen(Forms(e.Form.Name).Controls(e.Sender.Name).BaseControl.Bounds.Location) '定位主界面XY
point.Y += 180 + Forms(e.Form.Name).Controls(e.Sender.Name).Top
point.X += 30 'Forms(e.Form.Name).Controls(e.Sender.Name).left -30
dropDown.Show(point)
Dim TableName As String = e.Form.Name & "_Table"
Dim int As Integer = Tables(TableName).Position
If int > -1 Then
Dim str As String = Tables(TableName).Rows(int)("产品名称")
Dim Multi As String = DataTables(TableName).SQLGetComboListString("产品配件名称","[产品名称] = '" & str & "'")
dropDown.Controls("Panel_列表_外").Controls("Panel_列表_内").Controls("ListBox_列表观察").ComboList = Multi
End If
红色部分错误 怎么处理
加好友 
发短信
Post By：2014/8/1 14:11:00 [只看该作者]
