主题：[求助]代码

此主题相关图片如下：错误.png

l老师，我在点击单元格的时候出现这样的对话框。

 

Dim ck As DataRow = e.DataRow
Select Case e.DataCol.Name
      Case "出库_数量","出库_售价"
        ck("出库_金额") = ck("出库_数量") * ck("出库_售价")/1.17
    Case "出库_金额"
        ck("出库_价税合计") = ck("出库_金额") * 1.17
    Case "出库_价税合计","出库_金额"
        ck("出库_税金") = ck("出库_价税合计") - ck("出库_金额")
End Select

 

这个代码有问题吗？

老师，组合框引用外部数据源做下拉链项目请老师指点。

希望老师帮忙。

窗口中的组合框引用外部数据源做列表项目。

假定窗口中有一个组合框(ComboBox)，希望这个组合框能够列出该文件夹（Attachments）中的"列表项目.mdb"表所有的结算方式来做下拉链框中的候选值。
此主题相关图片如下：结算方式.png

谢谢老师做个实例

  e.Form.Controls("ComboBox1").ComboList = DataTables("通信").GetComboListString("企业信息_客户供应商", "企业信息_群组分类 = '供应商'")

 

恳请老师，在上面代码上添加一个外部数据表的连接  谢谢了

'从外部数据表列表项目表提取出库用途列的内容, 作为出库明细表领用部门的列列表项目
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT 出库用途 From {列表项目}"
dt = cmd.ExecuteReader
Tables("出库.出库明细").Cols("出库用途").Combolist = dt.GetComboListString("出库用途")

 

 

老师，我要用上面类型的代码在（ComboBox1）的组合框中做候选值

我的意思是直接利用外部数据表进行连接获取数据

怎样我的项目里都增加了一个表

我的意思是说在项目里又增加了一个表，初衷是直接引用外部数据不想在项目中增加表