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


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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/14 11:56:00 [只看该作者]

哪一次都生效，只要ID号正确，就能查

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/14 15:21:00 [只看该作者]

Dim r As Row = Tables("凭证").AddNew()
Dim tt As Table = Tables("凭证")
Dim dr As Table = Tables("凭证")
r("凭证ID") = dr.Compute("Max(凭证ID)") + 1
Dim r1 As Row = Tables("凭证明细").AddNew()
r1("凭证ID") = r("凭证ID")
Dim r2 As Row = Tables("凭证明细").AddNew()
r2("凭证ID") = r("凭证ID")
Dim r3 As Row = Tables("凭证明细").AddNew()
r3("凭证ID") = r("凭证ID")
Dim r4 As Row = Tables("凭证明细").AddNew()
r4("凭证ID") = r("凭证ID")
Dim r5 As Row = Tables("凭证明细").AddNew()
r5("凭证ID") = r("凭证ID")
Dim r6 As Row = Tables("凭证明细").AddNew()
r6("凭证ID") = r("凭证ID")
Dim r7 As Row = Tables("凭证明细").AddNew()
r7("凭证ID") = r("凭证ID")
e.Form.Controls("DateTimePicker2").Select()
为什么增两行后再就自动退出FOX?
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/14 15:22:00 [只看该作者]

汗，直接写

 

Tables("凭证.凭证明细").AddNew()

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/14 16:03:00 [只看该作者]

在父表增一行，子表同时增7行，关联列凭证ID?

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/14 16:11:00 [只看该作者]

Dim r As Row = Tables("凭证").AddNew()

Dim dr As Table = Tables("凭证")

r("凭证ID") = dr.Compute("Max(凭证ID)") + 1

Tables("凭证.凭证明细").AddNew()

[此贴子已经被作者于2015/10/14 16:11:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/14 16:21:00 [只看该作者]

凭证明细要同时增7行？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/14 16:22:00 [只看该作者]

Dim r As Row = Tables("凭证").AddNew()
Dim dr As Table = Tables("凭证")
r("凭证ID") = dr.Compute("Max(凭证ID)") + 1
For i As Integer = 1 To 7
    Tables("凭证.凭证明细").AddNew()
Next

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/14 16:49:00 [只看该作者]

为何点击录入、上一行、下一行都不能生效？

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


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2015/10/14 16:49:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:piao据打印.table
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/10/14 16:51:00 [只看该作者]

加入代码啊

 

按钮 代码
上一条

With Tables("员工")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = .Position - 1
    End If
End With

下一条

With Tables("员工")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = .Position + 1
    End If
End With

第一条

With Tables("员工")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = 0
    End If
End With

最末条 With Tables("员工")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = .Rows.Count - 1
    End If
End With
新增

With Tables("员工")
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("员工").AddNew()
    End If
End With

删除

With Tables("员工")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With
 回到顶部
总数 287 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..29
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05615 秒, 5 次数据查询