以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用自定义的录入界面进行数据填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7172)
--  作者：yankunhao
--  发布时间：2010/5/22 10:12:00
--  如何用自定义的录入界面进行数据填充
在foxtable帮助中有一个“自定义录入界面”的说明，我有个想法，是如果当用户按“回车”键会将目前选定行的客户ID输入到订单表的当前行中，如果是按“ctrl+enter”键就能将用户多选择的行包括不连续的行的相关数据填充到订单表中，不知要用什么样的代码才能做到呢？
[此贴子已经被作者于2010-5-22 10:21:08编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/5/22 10:22:00
--  

你可以这样：
 
ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then
        Tables("订单").Current("客户ID") = tbl.Current("客户ID")
    End if
    e.Form.Close()

改为：

 

ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then

        If e.Control = False Then
             \'单行写入的代码
        Else

            \'多行写入的代码

        End If
    End if
    e.Form.Close()


 

另foxtable没有选择不连续行的功能，除非你是用复选框，如和使用复选框，参考帮助文件“开发篇 - foxtable编程 - 基本类型 - Table - 常用属性 - 处理复选框”
--  作者：yankunhao
--  发布时间：2010/5/22 10:24:00
--  

请问可以给个多行写入的代码的示例吗？

[此贴子已经被作者于2010-5-22 10:24:35编辑过]
--  作者：梦倩
--  发布时间：2010/5/22 16:02:00
--  
For Each r1 As Row In Tables("A").GetCheckedRows
    Dim r2 As Row  = Tables("B").AddNew
    r2("XXX") = r1("XXX")
    r2("yyy“) = r1("yyy")
Next