Foxtable(狐表)用户栏目专家坐堂 → 界面问题


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

主题:界面问题

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


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

老师好,我在项目的afteropenproject事件里加入下面的代码,请问为什么不能打开Daily窗口?

Dim PB As WinForm.Panel = Forms("MainWindow").Controls("Panel1")
Forms("Daily").OPEN(-1000,-1500)
Forms("Daily).BaseForm.TopLevel = False
Forms("Daily").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms("Daily").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
'
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms("Daily").BaseForm)'


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


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

MainWindow窗口打开了。我是先打开主窗口的。

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


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

请问老师,我的程序有很多窗体,程序运行中利用下面的代码频繁打开这些窗体,请问下面的代码频繁的调用是否会造成程序死机?目前我的程序还没有这个现象,但将来使用久了会不会发生死机?


Dim PB As WinForm.Panel = Forms("MainWindow").Controls("Panel1")
Forms("Daily").OPEN(-1000,-1500)
Forms("Daily).BaseForm.TopLevel = False
Forms("Daily").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms("Daily").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
'
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms("Daily").BaseForm)'

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


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

谢谢老师

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


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

请问老师,我用下面的代码设置某个单元格字体的颜色,运行报错,提示没有找到string的公共成员ForeColor,
请问该如何更改。谢谢!

Dim drtimeHSE As DataRow    
drtimeHSE ("Category").ForeColor =Color.Red


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


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


请问老师,如何删除当前表的空行?下面的代码如何改动?谢谢。

Dim Filter As String
For Each dc As DataCol In DataTables("表名").DataCols
    Filter = Filter & " And " & dc.Name & " Is Null"
Next
Filter = Filter.SubString(5)
DataTables("表名").DeleteFor(Filter) 


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


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

"1=1" ,请问老师这是什么意思

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


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

老师好,下面代码运行报错,提示:未将对象引用设置到对象的实例。请问老师如何更改。谢谢!

Dim Productionchart As DataTable=DataTables("ProjectListAll")
Dim drProductionChart As DataRow
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("ProjectListAll") '定义一个变量t引用数据表
Chart = Forms("Data View").Controls("Productionchart") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource ="ProjectListAll" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系

Dim ChartDate As String=e.sender.value
messagebox.show("ok")
For Each c As Col In t.Cols

    If drProductionChart("Date")=e.sender.value And drProductionChart("Block")=selectednodename And drProductionChart("Type")="2D"  

        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.X.DataField = "Date" 'X轴绑定到日期列
        Series.Y.DataField = "T2D_PrimeProduction" '设置Y轴的绑定列
    End If

 If drProductionChart("Date")=e.sender.value And drProductionChart("Block")=selectednodename And drProductionChart("Type")="3D"  

        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.X.DataField = "Date" 'X轴绑定到日期列
        Series.Y.DataField = "T3D_PrimeProduction" '设置Y轴的绑定列
    End If

Next
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)


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


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

老师好,是下面的代码报错,提示:未将对象引用设置到对象的实例,请问怎么改?

Chart = Forms("Data View").Controls("Productionchart") ' 引用窗口中的图表

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


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

窗口没有打开

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