专家坐堂-改变选择的行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  改变选择的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146506)

--  作者：yangwenghd
--  发布时间：2020/2/25 12:48:00
--  改变选择的行

老师，能帮忙看看这个吗？批量改变选择的的行感谢感谢

此主题相关图片如下：qq截图20200225124652.jpg

If e.Form.Controls("ComboBox5").Text > "" Then
Dim t As Table = e.Form.Controls("Table2").Table
For i As Integer = t.Controls("Table2").Checked = True
    t.Rows(i)("收款信息_开票状态") = e.Sender.text
Next
e.Form.Controls("ComboBox5").Text = ""
End If \'改变发票信息,并且清除ComboBox9的内容

--  作者：有点蓝
--  发布时间：2020/2/25 13:43:00
--

http://www.foxtable.com/webhelp/topics/1776.htm

If  e.Sender.Text > "" Then
Dim t As Table = e.Form.Controls("Table2").Table
For Each r As Row In t.GetCheckedRows
r("收款信息_开票状态") = e.Sender.text
Next
e.Form.Controls("ComboBox5").Text = ""
End If

--  作者：yangwenghd
--  发布时间：2020/2/25 14:41:00
--

谢谢老师，这个是怎么把控件ComboBox5的内容批量复制到表格的呀，没有看明白这个代码？
如果说同时有也要把ComboBox6的内容复制到第一列，一个怎么该呀，感谢感谢

--  作者：有点蓝
--  发布时间：2020/2/25 14:56:00
--

If  e.Sender.Text > "" Then
Dim t As Table = e.Form.Controls("Table2").Table
For Each r As Row In t.GetCheckedRows
r("收款信息_开票状态") = e.Sender.text
r("第一列") =e.Form.Controls("ComboBox6").Text
Next
e.Form.Controls("ComboBox5").Text = ""
End If

--  作者：yangwenghd
--  发布时间：2020/2/25 15:13:00
--
谢谢老师，可以了谢谢