主题：列名设置

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

点击浏览该文件:列表框的设置.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("|")

请大侠帮手改一下。。。

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

 3Q, 可以了，建议将这例子放到狐表只让初学者，可以拿来参考