下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列表框的设置.rar

如何在窗口中设置：根据表名控件列出所有列的名称

Dim dt As String = e.Form.Controls("ComboBox2").text    \'表名控件
Dim c As String
 
For Each  c As DataCol In DataTables("dt").DataCols
      c = c & "|" & c.Name
Next
Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox3")  \'列名控件
  cmb.omboList = c.Trim("|")

请大侠帮手改一下。。。

前面定义字符型的名为C变量存储列名，后面循环也用C变量，这是不行的，这里必须用不同的名称，另外最好判断一下是否选择了表，还有combolist你写成ombolist了。

Dim dt As String = e.Form.Controls("ComboBox2").text \'表名控件
Dim c As String
If dt > "" Then
    For Each dc As DataCol In DataTables(dt).DataCols
        c = c & "|" & dc.Name
    Next
    Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox3") \'列名控件
    cmb.comboList = c.Trim("|")
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目81.rar