[浏览完整版]
标题：接口上报，帮忙指导一下
61楼
有点蓝 发表于：2023/10/9 8:30:00不能，把代码放到自定义函数里调用，或者直接复制到其它需要执行的地方
62楼
zoyong 发表于：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
Next
cmb.SelectedIndex = 0 '显示第一行
有多个帐套，只想显示含有"巨猴"字符的帐套
[此贴子已经被作者于2024/1/7 11:06:53编辑过]
63楼
linyunu1 发表于：2024/1/7 19:21:00For i As Integer = 0 To cmb.Items.Count - 1
If cmb.Items(i).Contains("巨猴") Then ‘只显示帐套名
cmb.SelectedIndex = i
End If
Next
64楼
zoyong 发表于：2024/1/8 8:45:00'--------------获取账套--------------- Dim cmb As System.windows.forms.combobox=e.Form.Controls("Panel1").basecontrol.controls(0)
有多个帐套，只想显示含有"巨猴"字符的帐套 上面代码无效 |
[此贴子已经被作者于2024/1/8 8:45:22编辑过]
65楼
有点蓝 发表于：2024/1/8 8:55:00Dim 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
Next
cmb.SelectedIndex = 0 '显示第一行
66楼
zoyong 发表于：2024/1/23 9:06:00记录窗口行高RecordRowHeight
能否根据窗口的大小自动调整最后一列值
[此贴子已经被作者于2024/1/23 9:07:07编辑过]
67楼
有点蓝 发表于：2024/1/23 9:13:00RecordRowHeight只能按倍数调整
最后一列值 = 记录窗口控件高度 - (记录窗口列数量-1）* 列默认高度[好像是21]
68楼
zoyong 发表于：2024/3/4 11:12:00无法访问此页
此主题相关图片如下：screenshot-1709521865472.png
69楼
有点蓝 发表于：2024/3/4 11:15:00卸载Foxtable，重新安装到其它目录。注意安装路径不能有中文，不能有括号等特殊符号。
安装后在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中勾选“以管理员身份运行此程序”
70楼
zoyong 发表于：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
Next
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
Next
mobile值为空是什么原因
[此贴子已经被作者于2024/4/17 13:45:51编辑过]