Foxtable(狐表)用户栏目专家坐堂 → 程序的变量值如何输出到表里


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

主题:程序的变量值如何输出到表里

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
程序的变量值如何输出到表里  发帖心情 Post By:2015/3/21 21:17:00 [显示全部帖子]

各位大侠,菜鸟我有个问题,就是如何将程序运行时的变量值输入到表里。

多谢啦。急盼回音。

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/21 21:21:00 [显示全部帖子]

我有多个变量值,比如,x,y,z,u,v,w,将这些变量值输入到表里,怎么实现?我用过export不行,其他foxtable语句也不行。

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/22 16:23:00 [显示全部帖子]

非常感谢您的指导,我试试。


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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/23 16:41:00 [显示全部帖子]

终于可以了,衷心感谢版主的指导。

我还有个问题,就是如何给不同窗体的文本框赋值?
比如:
guns=“aaaaa”
Forms("rawdatadisplay").Controls("TextBox1").text=guns
这段程序不能执行。不知为什么。
我从主窗口,向rawdatadisplay窗口的TextBox1控件的text属性赋值,但foxtable不允许,这在VB里是很容易的事,但在foxtable不行,为什么?


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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/23 17:36:00 [显示全部帖子]

衷心感谢版主的指导,是可以赋值了。
有个问题是foxtable好像不可以单步跟踪,只能用outshow的办法输出吗?还是可以用其他办法单步跟踪。这在vb里很方便。foxtable要是能象vb的F8键单步调试,就好了,那很方便。


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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/23 20:31:00 [显示全部帖子]

再请教版主一个问题,我有一个文本文件,该文件有N行数据(行数是变化的),我该如何按行读入数据,并赋值给变量。
在VB里很容易实现,但用foxtable我不会。感觉foxtable 和VB有很多的不同。
多谢啦。不好意思,总给您填麻烦。

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/24 9:08:00 [显示全部帖子]

谢谢您的回复。帮助文件我之前也研究了,里面的代码我也用了,我是这样写的。

 Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    strs = strs.Replace(vblf,"")
    Dim rs() As String = strs.Split(vbcr)
   For ir=0 To rs.Length - 1
   guns = rs(ir)
   output.show(guns) 这里我输出所读的结果,发现和实际的有差别。要求避开字符,只读取数字,因此我加入了下面的语句
   If IsNumeric(guns.Substring( 0,1)) Then 
    这里执行处理数字的程序部分,这部分我已经测试成功了。
    endif
 
    附件是我的数据,该数据是系统设备实时产生的,我要实时读取,所以要求比较高。肯请版主帮忙。再次感谢。


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:0257-pe7970b010-xg2.txt




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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/24 19:33:00 [显示全部帖子]

按照您的指导,确实可以了读了,非常感谢您的指导,多谢啦。

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/25 9:54:00 [显示全部帖子]

尊请各位版主看看下面的程序是否有错?

e.Form.Controls("TabControl1").BackColor=Color.FromARGB(255,173,216,230)

For Each c As Winform.Control In e.Form.Controls
    c.BackColor = Color.FromARGB(255,173,216,230)
这两句都不能改变TabControl1的背景颜色,窗体中的其他控件都可以改变背景色,请问怎么改变TabControl1的背景色?

TabControl的背景色是灰的很不美观,我想该成浅蓝色的。上述代码实现不了。

多谢!

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


加好友 发短信
等级:五尾狐 帖子:1020 积分:6658 威望:0 精华:0 注册:2015/2/25 23:14:00
  发帖心情 Post By:2015/3/25 11:31:00 [显示全部帖子]

多谢多谢。

 回到顶部
总数 47 1 2 3 4 5 下一页