请各位老师帮助解决

2008-05-22 07:31:05 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

汇川AM402、H3U和上位机C#ModebusTcp通讯目录一、测试任务二、测试环境三、PLC工程1、组态配置2、ip地址、端口号 3、全局变量定义四、C#端Winform程序创建1创建主界面 2、创建子窗口 3、运行生成，界面效果4、Modebus协议说明5、Modebus操作说明六、测试1、寄存器读测试 2、MW1300寄存器的BIT位3、写寄存器测试4、PLC断电或者断网七、工程下载连接1、PLC作为ModebusTCP端，端口号都是502，PC端上位机软件作为TcpClient去连接多台PLC。PC端读写PLC寄存器。2、PC端在有的PLC断电、断网的阅读详情

有一个数据库表，有序号、邮编、地址、单位、收件人、份数，怎么样能让份数字段中超过50的记录自动分成两个记录，比如说份数为75，自动分为一个50的，一个25的，其它字段内容均一样，请各位老师帮助解决。

...全文

告别两个电源模块！用UCD3138+四开关Buck-Boost，一个电路搞定电池充放电（附原理图分析）本文详细介绍了采用UCD3138数字控制器和四开关Buck-Boost拓扑的双向DC/DC变换器设计，实现单一电路完成电池智能充放电管理。该方案显著降低BOM成本和PCB面积，提升系统效率至96.2%，适用于UPS、通信基站和储能系统，具有高效、紧凑和成本优势。阅读详情

liuanzhao

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

十豆三 2008-05-26

打赏
举报

[Quote=引用 18 楼 liuanzhao 的回复:]
还有就是能不能把分数大于50的拆分完了后生成一个新表存放，原表的数据不动！
[/Quote]

建个新表，把Insert 语句即可，这个你自已试试搞定吧。

十豆三 2008-05-26

打赏
举报

那行报错，应该是
Insert Into "&biao" (序号,邮编,地址,单位,收件人,份数) Select 序号,邮编,地址,单位,收件人,50 "&biao" Where 份数>50

改为：

Insert Into "&biao" (序号,邮编,地址,单位,收件人,份数) Select 序号,邮编,地址,单位,收件人,50 from "&biao" Where 份数>50

十豆三 2008-05-24

打赏
举报

如果是VFP9.0才能用上面的语句。

liuanzhao 2008-05-24

打赏
举报

还有就是能不能把分数大于50的拆分完了后生成一个新表存放，原表的数据不动！

liuanzhao 2008-05-24

打赏
举报

biao = DBF()
Do While .T.
Select Max(份数) As fs Into Cursor t1 From "&biao"
If t1.fs>50
Insert Into "&biao" (序号,邮编,地址,单位,收件人,份数) Select 序号,邮编,地址,单位,收件人,50 "&biao" Where 份数>50
Update "&biao" Set 份数=份数-50 Where 份数>50
Else
Return .F.
Endif
ENDDO

我想用一个变量，代替路径和表名，可是update语句不支持，老是报错，能有别的解决办法吗？

大刘0417 2008-05-23

打赏
举报

把字段类型改成字串型,输入掩码"9..."

if VAL(字段名)/50>1
A=50
B=VAL(字段名)-A
C=ALLTRIM(STR(A))+" "+ALLTRIM(STR(B))
用C REPLACE 一下
ENDIF

我也没试过,不知行不行,俺不是老师,是新手.呵呵,别见笑.

十豆三 2008-05-23

打赏
举报

可能是份数 <=50 中间被回复多加了空格的原因，我修改了3楼的回复。

liuanzhao 2008-05-23

打赏
举报

select 序号,邮编,地址,单位,收件人,份数 into table yzbq.dbf from c:\zmn.dbf where 份数 <=50
select 序号,邮编,地址,单位,收件人,50 as 份数 into cursor t2 from c:\zmn.dbf where 份数>50
select 序号,邮编,地址,单位,收件人,(份数-50) as 份数 into cursor t1 from c:\zmn.dbf where 份数>50
select yzbq.dbf
append from dbf("t1")
append from dbf("t2")

我用了以上的代码，怎么提示语法错误？

十豆三 2008-05-23

打赏
举报

select 序号,邮编,地址,单位,收件人,份数 into table 目标表 from 原表 where 份数<=50

select 序号,邮编,地址,单位,收件人,50 as 份数 into cursor t2 from 原表 where 份数>50

select 序号,邮编,地址,单位,收件人,(份数-50) as 份数 into cursor t1 from 原表 where 份数>50

select 目标表

append from dbf("t1")

append from dbf("t2")

都市夜猫 2008-05-23

打赏
举报

1. 检查“份数”字段是否为数值型
2. 检查 vfp 版本是否为 9.0 以上

liuanzhao 2008-05-23

打赏
举报

Insert Into c:\zmn.Dbf (序号,邮编,地址,单位,收件人,份数) Select 序号,邮编,地址,单位,收件人,50 From c:\zmn.Dbf Where 份数>50

Update c:\zmn.Dbf Set 份数=份数-50 Where 份数>50

以上两行报错，操作符/操作数类型不匹配

十豆三 2008-05-23

打赏
举报

*--如果是VFP9.0:



Do While .T.

	Select Max(份数) As fs Into Cursor t1 From c:\zmn.Dbf

	If t1.fs>50

		Insert Into c:\zmn.Dbf (序号,邮编,地址,单位,收件人,份数) Select 序号,邮编,地址,单位,收件人,50 From c:\zmn.Dbf Where 份数>50

		Update c:\zmn.Dbf Set 份数=份数-50 Where 份数>50

	Else

		Return .F.

	Endif

Enddo

十豆三 2008-05-23

打赏
举报

Select 序号,邮编,地址,单位,收件人,份数 Into Table yzbq.Dbf From c:\zmn.Dbf Where 份数<=50

Select zmn

Set Filter To 份数>50

Scan

    For i=1 To Int(zmn.份数/51)

        Replace zmn.份数 With zmn.份数-50

        Insert Into yzbq (序号,邮编,地址,单位,收件人,份数) Values (zmn.序号,zmn.邮编,zmn.地址,zmn.单位,zmn.收件人,50)

    Endfor

Endscan

Select yzbq

Append From Dbf("zmn")



试试这个

liuanzhao 2008-05-23

打赏
举报

不行啊，有一个订户成了-25了

十豆三 2008-05-23

打赏
举报

Select 序号,邮编,地址,单位,收件人,份数 Into Table yzbq.Dbf From c:\zmn.Dbf Where 份数<=50

Select zmn

Set Filter To 份数>50

Scan

	For i=1 To Int(zmn.份数/51)

		Replace 份数 With zmn.份数-50

		Insert Into yzbq (序号,邮编,地址,单位,收件人,份数) Values (zmn.序号,zmn.邮编,zmn.地址,zmn.单位,zmn.收件人,Iif(zmn.份数-50>50,50,zmn.份数-50))

	Endfor

Endscan

Select yzbq

Append From Dbf("zmn")

都市夜猫 2008-05-23

打赏
举报

select 序号,邮编,地址,单位,收件人,份数 from 原表 into table 新表 where 份数 <= 50

m.ii = 1
do while .t.
insert into 新表 ;
select 序号,邮编,地址,单位,收件人,份数-m.ii*50 ;
from 原表 where 份数-m.ii*50 > 0
if ( _tally > 0 )
m.ii = m.ii + 1
else
exit
endif
enddo

liuanzhao 2008-05-23

打赏
举报

十豆三老师，问题解决了，我看了一下新生成的表，发现有一个156的记录分成了一个50的，一个106的，能不能一次都分成不超过50的啊？

十豆三 2008-05-23

打赏
举报

Select 序号,邮编,地址,单位,收件人,份数 Into Table yzbq.Dbf From c:\zmn.Dbf Where 份数<=50

Select 序号,邮编,地址,单位,收件人,50 As 份数 Into Cursor t2 From c:\zmn.Dbf Where 份数>50

Select 序号,邮编,地址,单位,收件人,(份数-50) As 份数 Into Cursor t1 From c:\zmn.Dbf Where 份数>50

Select yzbq

Append From Dbf("t1")

Append From Dbf("t2")



--试试，再不行帖全你的代码，并指出报错行和错误信息

liuanzhao 2008-05-23

打赏
举报

还提示“t1”表不能更新，因为是只读的

liuanzhao 2008-05-23

打赏
举报

我去掉了空格还是不行啊

请各位老师帮助解决

相关推荐