|
发表于 2014-3-22 21:06:39
|
显示全部楼层
功能 编辑框02_内容改变()
如果(编辑框.获得文本("编辑框02")=="零售业务")
z = 辅助.读配置("商品列表","1","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记a
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格000",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格000",0,130)
表格.设置列宽("表格000",1,130)
否则
表格.设置列宽("表格000",0,138)
表格.设置列宽("表格000",1,138)
如果结束
循环(a)
循环(b)
表格.设置内容("表格000",a,b-1,返回串)
如果(b-1==1)
表格.设置内容("表格000",a,b-1,返回串+0.5)
如果结束
表格.设置类型("表格000",a,b-1,1)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记a:
z = 辅助.读配置("商品列表","2","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记b
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格001",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格001",0,130)
表格.设置列宽("表格001",1,130)
否则
表格.设置列宽("表格001",0,138)
表格.设置列宽("表格001",1,138)
如果结束
循环(a)
循环(b)
表格.设置内容("表格001",a,b-1,返回串)
如果(b-1==1)
表格.设置内容("表格001",a,b-1,((返回串)+1))
如果结束
表格.设置类型("表格001",a,b-1,1)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记b:
z = 辅助.读配置("商品列表","3","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记c
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格002",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格002",0,130)
表格.设置列宽("表格002",1,130)
否则
表格.设置列宽("表格002",0,138)
表格.设置列宽("表格002",1,138)
如果结束
循环(a)
循环(b)
表格.设置内容("表格002",a,b-1,返回串)
如果(b-1==1)
表格.设置内容("表格002",a,b-1,((返回串)+2))
如果结束
表格.设置类型("表格002",a,b-1,1)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记c:
否则
z = 辅助.读配置("商品列表","1","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记d
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格000",1,3)
表格.设置大小("表格000",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格000",0,130)
表格.设置列宽("表格000",1,130)
否则
表格.设置列宽("表格000",0,138)
表格.设置列宽("表格000",1,138)
如果结束
循环(a)
循环(b)
表格.设置内容("表格000",a,b-1,返回串)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记d:
z = 辅助.读配置("商品列表","2","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记e
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格001",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格001",0,130)
表格.设置列宽("表格001",1,130)
否则
表格.设置列宽("表格001",0,138)
表格.设置列宽("表格001",1,138)
如果结束
循环(a)
循环(b)
表格.设置类型("表格001",a,b-1,0)
表格.设置内容("表格001",a,b-1,返回串)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记e:
z = 辅助.读配置("商品列表","3","d:\\账目系统\\config.ini")
如果(z == "")
跳转 标记f
如果结束
返回串,w
源串=z,分隔符=":"
字符串.分割(源串,分隔符,返回串)
数组空间.大小(返回串,w)
y = w/3
x = 3
a = y
b = x
i = 0
表格.设置大小("表格002",y+1,x)
如果(y+1 >= 16)
表格.设置列宽("表格002",0,130)
表格.设置列宽("表格002",1,130)
否则
表格.设置列宽("表格002",0,138)
表格.设置列宽("表格002",1,138)
如果结束
循环(a)
循环(b)
表格.设置类型("表格002",a,b-1,0)
表格.设置内容("表格002",a,b-1,返回串)
i = i+1
b = b-1
循环结束
b = x
a =a-1
循环结束
标记f:
如果结束
功能结束
注意对比红色区域,我就是这样解决这个问题的 |
|