Foxtable(狐表)用户栏目专家坐堂 → [求助]关于窗口能否以表格形式进行录入


  共有1895人关注过本帖树形打印复制链接

主题:[求助]关于窗口能否以表格形式进行录入

帅哥哟,离线,有人找我吗?
洮沙
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)保存按钮Dim dr As DataRowDim str()...  发帖心情 Post By:2017/12/2 12:19:00 [只看该作者]

能够赋值,谢谢!

 

但是,赋值后,错行了!

 

 


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 
 


图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

 



图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

求解!


 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)保存按钮Dim dr As DataRowDim str()...  发帖心情 Post By:2017/12/2 14:02:00 [只看该作者]

蓝老师,麻烦再给看看。问题在上一楼,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107739 积分:548028 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/2 14:32:00 [只看该作者]

Dim dr As DataRow
Dim str() As String = {"金额","税额"}

For Each s As String In str
    dr = DataTables(s).AddNew
    For Each r As Row In e.Form.Controls("Table1").Table.Rows
        If r.IsNull(s) = False
            Dim arr() As String = r("项目").split("%")
            dr(s & "_" & arr(0)) = r(s)
        End If
    Next
Next

 回到顶部
帅哥哟,离线,有人找我吗?
洮沙
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:7004 威望:0 精华:0 注册:2017/8/31 12:07:00
回复:(有点蓝)Dim dr As DataRowDim str() As Stri...  发帖心情 Post By:2017/12/2 14:42:00 [只看该作者]

看到了,谢谢!谢谢!

 回到顶部
总数 14 上一页 1 2