主题：如果把多列内容合成填加到一条记录？

见图中需求

 你就不能把你这个窗口上传上来？

按钮1代码

 

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
lbx.Items.Add(cbx1.text & ":" & cbx2.text)

 

按钮2代码

 

Tables("表A").Current("第一列") = e.Form.Controls("ListBox1").ComboList

抱歉，我已上传附件，请老师帮忙。

按钮2的代码是把LIST中所有内容填充到其中一列中，而我需要把他分别填充到不同列。如：把”现金“填充到账户列，把”营业收入“填充到”用途列。

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

点击浏览该文件:咖啡厅数据管理.foxdb

收到，谢谢老师

老师我看了您发的，有些地方可能我没表诉清楚。 您用的是list的行来确定填充的字段内容，但是我想用combobox列表里得内容来决定填充到哪个字段中。 例如现金，那我就把其舔到账户列，如果是营业收入，我就把他填到用途字段，其他以此类推。根据内容做填充

我觉得你还是没有表达清楚，6楼的代码就是这个意思。

老师，如何把例子中ListBox1控件中的内容以双击的方式删除某一行？即双击哪一行就移除哪一行？