Dim tb As Table = Tables("CMSMD")
Dim dbox As WinForm.DropDownBox = Forms("主窗口").Controls("DropboxSC")
Dim s As String
For Each i As Row In tb.GetCheckedRows
s= s & "'" & i("MD001") & "'" & ","
Next
If s = "" Then
MessageBox.Show("至少选择一列","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
dbox.Value= ""
Else
MessageBox.Show(s.SubString(0,s.Length-1))
dbox.Value= s.SubString(0,s.Length)
End If
e.Form.Close()
这样写,, 拼接出来的不对 得出的结果 不对
exec P_MOC N'''02''',N'''D01'',''D02'''