接口上报，帮忙指导一下 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口上报，帮忙指导一下

共有23034人关注过本帖树形打印复制链接主题：接口上报，帮忙指导一下

有点蓝

小大 61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113074 积分：575775 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/9 8:30:00 [只看该作者]

不能，把代码放到自定义函数里调用，或者直接复制到其它需要执行的地方

zoyong

小大 62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8043 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2024/1/7 11:06:00 [只看该作者]

'--------------获取账套---------------

Dim cmb As System.windows.forms.combobox=e.Form.Controls("Panel1").basecontrol.controls(0)

For i As Integer = 0 To cmb.Items.Count - 1

If cmb.Items(i).Contains("巨猴") Then ‘只显示帐套名

cmb.Items.Add(i)

End If

cmb.SelectedIndex = 0 '显示第一行

有多个帐套，只想显示含有"巨猴"字符的帐套

[此贴子已经被作者于2024/1/7 11:06:53编辑过]

linyunu1

小大 63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：163 积分：1100 威望：0 精华：0 注册：2020/1/16 11:58:00

Post By：2024/1/7 19:21:00 [只看该作者]

For i As Integer = 0 To cmb.Items.Count - 1

If cmb.Items(i).Contains("巨猴") Then ‘只显示帐套名

cmb.SelectedIndex = i

End If

zoyong

小大 64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8043 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2024/1/8 8:45:00 [只看该作者]

'--------------获取账套---------------

Dim cmb As System.windows.forms.combobox=e.Form.Controls("Panel1").basecontrol.controls(0)

For i As Integer = 0 To cmb.Items.Count - 1

If cmb.Items(i).Contains("巨猴") Then ‘只显示帐套名

cmb.SelectedIndex = i

End If

有多个帐套，只想显示含有"巨猴"字符的帐套

上面代码无效

[此贴子已经被作者于2024/1/8 8:45:22编辑过]

有点蓝

小大 65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113074 积分：575775 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/8 8:55:00 [只看该作者]

Dim cmb As System.windows.forms.combobox = e.Form.Controls("Panel1").basecontrol.controls(0)

For i As Integer = cmb.Items.Count - 1 To 0 Step - 1

If cmb.Items(i).Contains("巨猴") = False Then

cmb.Items.RemoveAt(i)

End If

cmb.SelectedIndex = 0 '显示第一行

zoyong

小大 66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8043 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2024/1/23 9:06:00 [只看该作者]

记录窗口行高RecordRowHeight

能否根据窗口的大小自动调整最后一列值

[此贴子已经被作者于2024/1/23 9:07:07编辑过]

有点蓝

小大 67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113074 积分：575775 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/1/23 9:13:00 [只看该作者]

RecordRowHeight只能按倍数调整

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=90017

最后一列值 = 记录窗口控件高度 - (记录窗口列数量-1）* 列默认高度[好像是21]

zoyong

小大 68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8043 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2024/3/4 11:12:00 [只看该作者]

无法访问此页

确保 Web 地址//ieframe.dll/dnserrordiagoff.htm# 正确
在必应上搜索此站点
刷新页面

此主题相关图片如下：screenshot-1709521865472.png

有点蓝

小大 69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：113074 积分：575775 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/3/4 11:15:00 [只看该作者]

卸载Foxtable，重新安装到其它目录。注意安装路径不能有中文，不能有括号等特殊符号。

安装后在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中勾选“以管理员身份运行此程序”

zoyong

小大 70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：675 积分：8043 威望：0 精华：0 注册：2015/8/24 9:02:00

Post By：2024/4/17 13:45:00 [只看该作者]

Dim nms() As String = {"userid", "name", "position", "mobile", "gender", "email", "open_userid", "avatar", "status"} '""

For Each jt As JToken In jo("userlist")

Dim dr As DataRow = DataTables("企业微信审批设置_table5").Find("userid='" & jt("userid").tostring & "'")

If dr Is Nothing Then

dr = DataTables("企业微信审批设置_table5").AddNew()

End If

For Each nm As String In nms

dr(nm) = jt(nm).tostring

If jo("department") IsNot Nothing Then

dr("department") = CompressJson(jo("department")).Trim("[", "]")

End If

If jo("extattr") IsNot Nothing Then

dr("extattr") = ComPressJson(jo("extattr")("attrs")).Trim("[", "]")

End If

mobile值为空是什么原因

[此贴子已经被作者于2024/4/17 13:45:51编辑过]

下一主题 >> << 上一主题

总数 92 上一页 1 2 3 4 5 6 7 8 9 10 下一页

主题：接口上报，帮忙指导一下