Foxtable(狐表) → 用户栏目 → 专家坐堂 → 科目导入


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

主题：科目导入
帅哥哟，离线，有人找我吗？
发财
 小大  81楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 16:37:00 [显示全部帖子]

        Forms("凭证").Controls("Table1").Select
        Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index)
        Tables("凭证.凭证明细").StartEditing
不行？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  82楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 16:51:00 [显示全部帖子]

要点击一下凭证非数据表的空白处光标才显示出来。

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  83楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:05:00 [显示全部帖子]

If e.Node.Name <> "全部" Then
    If e.node.Level = 1 Then
        CurrentTable.current("摘要") = e.Node.text.split(" ")(1)
        e.form.TimerInterval = 500
        e.form.TimerEnabled = True
        Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index)
        Tables("凭证.凭证明细").StartEditing
    End If
    If Forms("凭证").opened Then
        Forms("摘要").Close
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  84楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:07:00 [显示全部帖子]

加在这里还是不行？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  85楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 17:25:00 [显示全部帖子]

双击选择不了？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  86楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 18:00:00 [显示全部帖子]

两处都有代码 Tables("凭证.凭证明细").Select(Tables("凭证.凭证明细").Current.Index, Tables("凭证.凭证明细").Cols("借方金额").index) Tables("凭证.凭证明细").StartEditing 是否重复？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  87楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/22 18:18:00 [显示全部帖子]

去掉双击选择不能添加到摘要

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  88楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/23 8:45:00 [显示全部帖子]

还是不行？老师又要麻烦你了！

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  89楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/23 9:02:00 [显示全部帖子]

messagebox.show(Tables("凭证.凭证明细").Current.Index)
messagebox.show(Tables("凭证.凭证明细").Cols("借方金额").index)
显示行号、列号都对，就是不显示光标？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  90楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/23 10:45:00 [显示全部帖子]

Dim xj As WinForm.DateTimePicker = e.Form.Controls("录入日期")
If xj.text = "" Then
    MessageBox.Show("请输入录入凭证日期!")
Else
    vars("cc") = xj.text
    Tables("凭证").Sort = "日期,凭证ID"
    Tables("凭证明细").Sort = "日期,凭证ID"
    DataTables("凭证").LoadFilter = "[审核] = false "
    DataTables("凭证").Load()
    If Tables("凭证").Rows.Count = 0 Then
        Dim r As Row = Tables("凭证").AddNew()
        If r Is Nothing Then Return
        r("日期") = vars("cc")
        For i As Integer = 1 To 7
            Dim nr As Row = Tables("凭证.凭证明细").AddNew()
            nr("日期") = r("日期")
        Next
        e.Form.Controls("附件张数").Select
        Forms("凭证").Controls("Textbox1").Text = r("凭证ID")
    End If
        Forms("凭证").open
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询